home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / pc / os2 / jot / install.cmd next >
Encoding:
Text File  |  1996-02-21  |  613 b   |  24 lines
  1. /* Install Jot to desktop */
  2.  
  3.  
  4.  
  5. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6. call SysLoadFuncs
  7.  
  8. call SysFileTree "Jot.exe", "exedir.", "FO"
  9. PathandProg = ExeDir.1
  10. InstallDir = Directory()
  11.  
  12. say 'Installing Jot from ' || Installdir || ' to desktop'
  13.  
  14. rc = SysCreateObject('WPProgram','Jot',,
  15.                      '<WP_DESKTOP>',,
  16.                      'EXENAME=' || PathandProg || ';' ||,
  17.                      'STARTUPDIR=' || InstallDir || ';',,
  18.                      'ReplaceIfExists')
  19. if rc = 1 then
  20.   say Jot successfully installed
  21. else
  22.   say Unable to install Jot to desktop
  23.  
  24.